home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / term / pre-x-win.el < prev    next >
Encoding:
Text File  |  1995-08-04  |  2.3 KB  |  67 lines
  1. ;;; pre-x-win.el --- first phase of runtime initialization for X windows
  2. ;; Copyright (C) 1990, 1993, 1994 Free Software Foundation, Inc.
  3. ;; Copyright (C) 1995 Board of Trustees, University of Illinois.
  4.  
  5. ;; Author: FSF
  6. ;; Keywords: terminals
  7.  
  8. ;; This file is part of XEmacs.
  9.  
  10. ;; XEmacs is free software; you can redistribute it and/or modify it
  11. ;; under the terms of the GNU General Public License as published by
  12. ;; the Free Software Foundation; either version 2, or (at your option)
  13. ;; any later version.
  14.  
  15. ;; XEmacs is distributed in the hope that it will be useful, but
  16. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  17. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  18. ;; General Public License for more details.
  19.  
  20. ;; You should have received a copy of the GNU General Public License
  21. ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  22. ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  23.  
  24. ;;; Commentary:
  25.  
  26. ;; pre-x-win.el: this file is loaded either from ../term/x-win.el or
  27. ;; by make-device when it creates the first X device.
  28.  
  29. ;;; Code:
  30.  
  31.  
  32. ;;; If you want to change this variable, this is the place you must do it.
  33. ;;; Do not set it to a string containing periods.  X doesn't like that.
  34. ;(setq x-emacs-application-class "Emacs")
  35.  
  36. (require 'x-iso8859-1)
  37.  
  38. (setq mouse-motion-handler 'x-track-pointer)
  39. (setq character-set-property 'x-iso8859/1) ; see x-iso8859-1.el
  40.  
  41. (setq initial-frame-alist (if initial-frame-unmapped-p
  42.                    '((initially-unmapped . t))
  43.                  nil))
  44.  
  45. ;; This should really be in x11/x-toolbar.el but we need it before we
  46. ;; create the first X device and we can't load x-toolbar.el until
  47. ;; after we create the first X device.
  48. ;; #### Someone tell me I'm missing something and there is a better
  49. ;; #### way to do this.
  50. (defun x-init-toolbar-from-resources (locale)
  51.   (x-init-specifier-from-resources
  52.    top-toolbar-height 'natnum locale
  53.    '("topToolBarHeight" . "TopToolBarHeight"))
  54.   (x-init-specifier-from-resources
  55.    bottom-toolbar-height 'natnum locale
  56.    '("bottomToolBarHeight" . "BottomToolBarHeight"))
  57.   (x-init-specifier-from-resources
  58.    left-toolbar-width 'natnum locale
  59.    '("leftToolBarWidth" . "LeftToolBarWidth"))
  60.   (x-init-specifier-from-resources
  61.    right-toolbar-width 'natnum locale
  62.    '("rightToolBarWidth" . "RightToolBarWidth")))
  63.  
  64. (provide 'pre-x-win)
  65.  
  66. ;;; pre-x-win.el ends here
  67.